home *** CD-ROM | disk | FTP | other *** search
/ SuperHack / SuperHack CD.bin / CODING / VBASIC / T2WIN-32.ZIP / _MED-VOL.FRM (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1997-01-01  |  8.2 KB  |  235 lines
  1. VERSION 4.00
  2. Begin VB.Form frmMediaID 
  3.    BorderStyle     =   4  'Fixed ToolWindow
  4.    Caption         =   "Media ID - Volume Label"
  5.    ClientHeight    =   4785
  6.    ClientLeft      =   1890
  7.    ClientTop       =   3270
  8.    ClientWidth     =   7485
  9.    Height          =   5190
  10.    Left            =   1830
  11.    MaxButton       =   0   'False
  12.    MDIChild        =   -1  'True
  13.    ScaleHeight     =   4785
  14.    ScaleWidth      =   7485
  15.    ShowInTaskbar   =   0   'False
  16.    Top             =   2925
  17.    Width           =   7605
  18.    Begin VB.TextBox txt_Result 
  19.       BackColor       =   &H00C0C0C0&
  20.       BorderStyle     =   0  'None
  21.       Height          =   4005
  22.       Left            =   105
  23.       Locked          =   -1  'True
  24.       MultiLine       =   -1  'True
  25.       ScrollBars      =   2  'Vertical
  26.       TabIndex        =   0
  27.       Top             =   630
  28.       Width           =   7260
  29.    End
  30.    Begin Threed.SSPanel SSPanel1 
  31.       Align           =   1  'Align Top
  32.       Height          =   480
  33.       Left            =   0
  34.       TabIndex        =   1
  35.       Top             =   0
  36.       Width           =   7485
  37.       _Version        =   65536
  38.       _ExtentX        =   13203
  39.       _ExtentY        =   847
  40.       _StockProps     =   15
  41.       ForeColor       =   -2147483640
  42.       BackColor       =   12632256
  43.       Begin VB.ComboBox cmb_Function 
  44.          Height          =   315
  45.          Left            =   1365
  46.          TabIndex        =   2
  47.          Top             =   90
  48.          Width           =   4785
  49.       End
  50.       Begin Threed.SSCommand SSCommand1 
  51.          Default         =   -1  'True
  52.          Height          =   300
  53.          Left            =   6615
  54.          TabIndex        =   6
  55.          Top             =   90
  56.          Width           =   465
  57.          _Version        =   65536
  58.          _ExtentX        =   820
  59.          _ExtentY        =   529
  60.          _StockProps     =   78
  61.          Caption         =   "&Go"
  62.          BevelWidth      =   1
  63.          RoundedCorners  =   0   'False
  64.          Outline         =   0   'False
  65.       End
  66.       Begin VB.Label Label2 
  67.          Caption         =   "&Select a function"
  68.          Height          =   255
  69.          Left            =   90
  70.          TabIndex        =   5
  71.          Top             =   120
  72.          Width           =   1275
  73.       End
  74.       Begin Threed.SSCommand cmdNP 
  75.          Height          =   300
  76.          Index           =   0
  77.          Left            =   6300
  78.          TabIndex        =   4
  79.          Top             =   90
  80.          Width           =   255
  81.          _Version        =   65536
  82.          _ExtentX        =   450
  83.          _ExtentY        =   529
  84.          _StockProps     =   78
  85.          Caption         =   "<"
  86.          BevelWidth      =   1
  87.          Font3D          =   3
  88.          RoundedCorners  =   0   'False
  89.          Outline         =   0   'False
  90.       End
  91.       Begin Threed.SSCommand cmdNP 
  92.          Height          =   300
  93.          Index           =   1
  94.          Left            =   7140
  95.          TabIndex        =   3
  96.          Top             =   90
  97.          Width           =   255
  98.          _Version        =   65536
  99.          _ExtentX        =   450
  100.          _ExtentY        =   529
  101.          _StockProps     =   78
  102.          Caption         =   ">"
  103.          BevelWidth      =   1
  104.          Font3D          =   3
  105.          RoundedCorners  =   0   'False
  106.          Outline         =   0   'False
  107.       End
  108.    End
  109. Attribute VB_Name = "frmMediaID"
  110. Attribute VB_Creatable = False
  111. Attribute VB_Exposed = False
  112. Option Explicit
  113. Option Base 1
  114. Private Const Iteration = 25
  115. Dim IsLoaded         As Integer
  116. Dim TimerStartOk     As Integer
  117. Dim TimerCloseOk     As Integer
  118. Dim TimerHandle      As Integer
  119. Dim TimerValue       As Long
  120. Private Sub cmdNP_Click(Index As Integer)
  121.    Call sub_NextPrev(cmb_Function, Index)
  122. End Sub
  123. Private Sub cmb_Function_Click()
  124.    If (IsLoaded = False) Then Exit Sub
  125.    Call cDisableFI(mdiT2W.Picture1)
  126.    txt_Result = ""
  127.    DoEvents
  128.    Select Case cmb_Function.ListIndex
  129.       Case 0
  130.          Call TestMediaID
  131.       Case 1
  132.          Call TestVolume
  133.       Case 2
  134.          Call TestDOSMediaID
  135.    End Select
  136.    DoEvents
  137.    Call cEnableFI(mdiT2W.Picture1)
  138. End Sub
  139. Private Sub Form_Activate()
  140.    mdiT2W.Label2.Caption = cInsertBlocks(mdiT2W.Label2.Tag, "" & Iteration)
  141. End Sub
  142. Private Sub Form_Load()
  143.    IsLoaded = False
  144.    Show
  145.    Call sub_Load_Combo(cmb_Function, T2WDirInst + "_med-vol.t2w")
  146.    IsLoaded = True
  147. End Sub
  148. Private Sub SSCommand1_Click()
  149.    Call cmb_Function_Click
  150. End Sub
  151. Private Sub TestMediaID()
  152.    Dim intResult        As Integer
  153.    Dim strResult        As String
  154.    Dim strDisplay       As String
  155.    Dim i                As Integer
  156.    Dim MEDIAID          As tagMEDIAID
  157.    strResult = ""
  158.    strDisplay = ""
  159.      
  160.    For i = 1 To 4
  161.       intResult = cGetMediaID(Chr$(64 + i), MEDIAID)
  162.       If (intResult = True) Then
  163.          strDisplay = strDisplay & "MEDIA ID found on drive '" & Chr$(64 + i) & "'" & vbCrLf & vbCrLf
  164.          strDisplay = strDisplay & "   VolumeName : '" & MEDIAID.VolumeName & "'" & vbCrLf
  165.          strDisplay = strDisplay & "   VolumeSerialNumber : '" & Hex$(MEDIAID.VolumeSerialNumber) & "'" & vbCrLf
  166.          strDisplay = strDisplay & "   SystemName : '" & MEDIAID.SystemName & "'" & vbCrLf
  167.          strDisplay = strDisplay & "   MaxNameLength : '" & MEDIAID.MaxNameLength & "'" & vbCrLf
  168.          strDisplay = strDisplay & "   FileSystemFlags : '" & MEDIAID.FileSystemFlags & "'" & vbCrLf & vbCrLf
  169.       Else
  170.          strDisplay = strDisplay & "MEDIA ID not found on drive '" & Chr$(64 + i) & "'" & vbCrLf & vbCrLf
  171.       End If
  172.    Next i
  173.    txt_Result = strDisplay
  174.    'time the function
  175.    TimerHandle = cTimerOpen()
  176.    TimerStartOk = cTimerStart(TimerHandle)
  177.    For i = 1 To Iteration
  178.       intResult = cGetMediaID("C", MEDIAID)
  179.    Next i
  180.    mdiT2W.pnl_Timer = cTimerRead(TimerHandle)
  181.    TimerCloseOk = cTimerClose(TimerHandle)
  182. End Sub
  183. Private Sub TestDOSMediaID()
  184.    Dim intResult        As Integer
  185.    Dim strResult        As String
  186.    Dim strDisplay       As String
  187.    Dim i                As Integer
  188.    Dim DOSMEDIAID       As tagDOSMEDIAID
  189.    strResult = ""
  190.    strDisplay = ""
  191.      
  192.    For i = 1 To 4
  193.       intResult = cDOSGetMediaID(Chr$(64 + i), DOSMEDIAID)
  194.       If (intResult = True) Then
  195.          strDisplay = strDisplay & "DOS MEDIA ID found on drive '" & Chr$(64 + i) & "'" & vbCrLf & vbCrLf
  196.          strDisplay = strDisplay & "   InfoLevel : '" & Hex$(cCVI(DOSMEDIAID.InfoLevel)) & "'" & vbCrLf
  197.          strDisplay = strDisplay & "   SerialNumber : '" & Hex$(cCVL(DOSMEDIAID.SerialNumber)) & "'" & vbCrLf
  198.          strDisplay = strDisplay & "   VolLabel : '" & cCompress(DOSMEDIAID.VolLabel) & "'" & vbCrLf
  199.          strDisplay = strDisplay & "   FileSysType : '" & cCompress(DOSMEDIAID.FileSysType) & "'" & vbCrLf & vbCrLf
  200.       Else
  201.          strDisplay = strDisplay & "DOS MEDIA ID not found on drive '" & Chr$(64 + i) & "'" & vbCrLf & vbCrLf
  202.       End If
  203.    Next i
  204.    txt_Result = strDisplay
  205.    'time the function
  206.    TimerHandle = cTimerOpen()
  207.    TimerStartOk = cTimerStart(TimerHandle)
  208.    For i = 1 To Iteration
  209.       intResult = cDOSGetMediaID("C", DOSMEDIAID)
  210.    Next i
  211.    mdiT2W.pnl_Timer = cTimerRead(TimerHandle)
  212.    TimerCloseOk = cTimerClose(TimerHandle)
  213. End Sub
  214. Private Sub TestVolume()
  215.    Dim intResult        As Integer
  216.    Dim strResult        As String
  217.    Dim strDisplay       As String
  218.    Dim i                As Integer
  219.    strResult = ""
  220.    strDisplay = ""
  221.      
  222.    For i = 1 To 4
  223.       strDisplay = strDisplay & "Volume Label for '" & Chr$(64 + i) & "' is '" & cGetVolumeLabel(Chr$(64 + i)) & "'" & vbCrLf & vbCrLf
  224.    Next i
  225.    txt_Result = strDisplay
  226.    'time the function
  227.    TimerHandle = cTimerOpen()
  228.    TimerStartOk = cTimerStart(TimerHandle)
  229.    For i = 1 To Iteration
  230.       strResult = cGetVolumeLabel("C")
  231.    Next i
  232.    mdiT2W.pnl_Timer = cTimerRead(TimerHandle)
  233.    TimerCloseOk = cTimerClose(TimerHandle)
  234. End Sub
  235.